10 POKE53280,12:POKE53281,12:PRINT"":GOSUB10000
30 PRINT"  [196]AS [208]ROGRAMM IST VON  [194]RAD [212]EMPLETON"
35 PRINT" UND ERSCHIEN IN DER [202]ULI '83 - [193]USGABE"
37 PRINT" VON '[212]HE [212]RANSACTOR'. - [197]S LIEGT AB   "
40 PRINT" 49152-49853 ($[195]000-$[195]2[194][196]) IM [211]PEICHER "
50 PRINT" UND IST NICHT VERSCHIEBBAR."
60 PRINT"  [196]IE ERSTEN FUENFZEHN [194]YTES SIND JUMP-"
70 PRINT" VEKTOREN ZU DEN 5 [203]OMMANDOS. - [211]IE    "
75 PRINT" BEGINNEN MIT 41953. - [197]S KANN EINE    "
80 PRINT" [214]ARIABLE WIE [194][193] VERWENDET WERDEN, SO  "
90 PRINT" DASS DIE [194]EFEHLE LEICHT AUFZURUFEN    "
95 PRINT" SIND.":GOSUB 9000
110 PRINT"[160][201]NITIALISIEREN : [211][217][211] 49153 / [211][217][211][160][194][193]":PRINT" [163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
120 PRINT"[160][198]ORMAT: [211][217][211][160][194][193],[195]0,[195]1,[195]2,[195]3"
130 PRINT"[160][197]INSCHALTEN DES [198]ARBGRAPHIK-[211]CREENS   "
140 PRINT" MIT VIER [198]ARBEN:"
150 PRINT"[160][160][160][160][195]0:  [200]INTERGRUND"
160 PRINT"[160][160][160][160][195]1:  [198]ARBE #1"
170 PRINT"[160][160][160][160][195]2:  [198]ARBE #2"
180 PRINT"[160][160][160][160][195]3:  [198]ARB-[206]YBBLES"
190 PRINT"[160][205]IT  [211][217][211][160][194][193]  WIRD DER [211]CREEN GELOESCHT"
200 PRINT"[160]UND DIE [200]INTERGRUNDFARBE GESETZT. [194]EI "
210 PRINT" WEITEREN [194]EFEHLEN WERDEN DIE 4 [198]ARBEN "
220 PRINT" MIT DEN [218]IFFERN 0 BIS 3 BEZEICHNET.  ":GOSUB9000
300 PRINT" [208]IXEL EINLESEN - [211][217][211] 49156 / [211][217][211] [194][193]+3":PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
310 PRINT"[160][198]ORMAT:  [211][217][211] [194][193]+3,[218][197][201][204][197],[198][193][210][194][197]"
320 PRINT" [197]INLESEN DES GENANNTEN [208]IXELS: [198]ARBE  "
330 PRINT"[160]VON 0 BIS 3 WIRD AN 256 ABGELEGT UND  "
340 PRINT" KANN MIT [208][197][197][203] GELESEN WERDEN."
350 PRINT" [208]IXEL SETZEN - [211][217][211] 49159 / [211][217][211] [194][193]+6":PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163]"
360 PRINT"[160][198]ORMAT:  [211][217][211] [194][193]+6,[218][197][201][204][197],[211][208][193][204][212][197],[198][193][210][194][197]"
370 PRINT"[160][211]ETZEN EINES [208]IXELS IN DER ANGEGEBE-  "
380 PRINT"[160]NENEN [198]ARBE ([198]ARBE 0 ZUM [204]OESCHEN     "
390 PRINT"[160]EINES [208]IXELS).":GOSUB9000
400 PRINT" [212]EXT-[205]ODUS [197][201][206] - [211][217][211] 49162 /"
405 PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   [211][217][211][160][194][193]+9"
410 PRINT" [198]ORMAT:  [211][217][211][160][194][193]+9 : [208][210][201][206][212] "CHR$(34)"[147]"CHR$(34)
420 PRINT" [211]CHALTET DEN NORMALEN [212]EXT-[211]CREEN EIN."
430 PRINT"[160][196]ER [211]CREEN IST VOLLER '[198]ARB-[205]UELL' VON"
440 PRINT" DER [199]RAPHIK, SO DASS ES AM BESTEN IST,"
450 PRINT"[160]DIE '[211]CREEN-[204]OESCHEN'-[193]NWEISUNG MITZU-"
455 PRINT"[160]VERWENDEN."
460 PRINT"":GOSUB9000
500 PRINT" [218]EICHNEN - [211][217][211] 49165 / [211][217][211][160][194][193]+12":PRINT" [163][163][163][163][163][163][163][163]"
510 PRINT"[160][198]ORMAT:":PRINT"[160][160][160][160][211][217][211][160][194][193]+12,[218]1,[211]1,[218]2,[211]2,[198][193][210][194][197]"
520 PRINT"[160][218]EICHNET EINE [204]INIE VOM [208]UNKT [218]1/[211]1 ZU"
530 PRINT"[160]DEM [208]UNKT [218]2/[211]2 IN EINER [198]ARBE 0 - 3. "
540 PRINT"[160][215]IE ZUVOR: [198]ARBE 0 LOESCHT DIE [204]INIE. "
545 PRINT" '[218]' BEZEICHNET DIE [218][197][201][204][197],               '[211]'            DIE [211][208][193][204][212][197]"
550 PRINT"":GOSUB9000
600 PRINT" [199]RAPHIK-[210]OUTINE LADEN":PRINT"[160][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
610 PRINT"[160][160][213]M DIE [199]RAPHIK-[210]OUTINE IN EINEM EI-"
620 PRINT" GENEN [208]ROGRAMM ZU VERWENDEN, KANN SIE "
630 PRINT" MIT DIESER [193]NWEISUNG AM [193]NFANG EINES  "
640 PRINT" [208]ROGRAMMS GELADEN WERDEN:"
650 PRINT"   1 [201][198][160][208][197][197][203] 49152<>96 [212][200][197][206][160]"
655 PRINT"     [160] [204][207][193][196][160]"CHR$(34)"[199][210][193][198][201][216][160][210][212][206][211]"CHR$(34)",8,1"
660 PRINT"":GOSUB9000
700 PRINTTAB(10)"[197]NDE DER [193]NLEITUNG"
710 PRINT"       [196]RUECKE <[194]> UM '[194][207][216]' ZU LADEN"
720 PRINT"ODER"
730 PRINT"       [196]RUECKE <[197]> = [197][206][196][197]":POKE53265,27
750 GETG$:IFG$<>"B"ANDG$<>"E"THEN750
780 IFG$="E"THENPRINT"[147]":END
800 PRINT"[147]LOAD"CHR$(34)"BOX"CHR$(34)",8":PRINT"RUN";
810 POKE631,13:POKE632,13:POKE198,2:END
9000 PRINTTAB(10)"[158][194][201][212][212][197] [211][208][193][195][197] [196][210][213][197][195][203][197][206]!":POKE53265,27
9010 GETA$:IFA$<>" "THEN9010
10000 POKE53265,11:PRINT"[147]   [199][160][210][160][193][160][198][160][201][160][216][160] -  [193][160][206][160][204][160][197][160][201][160][212][160][213][160][206][160][199]"
10010 PRINT"   [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
10020 RETURN